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RRRRRRRRRRRR 
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RRR 

RRR 

RRR 

RRR 
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RRR = RRR 
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RRR RRR 
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Sy! 

NT! 

NT! 

NT! 

NT! 

NT! 

NT! 

MMM MMP SSSSSSSSSSSS NT! 
MMM MMM SSSSSSSSSSSS NT! 
MMM MMM SSSSSSSSSSSS NT! 
HM MPA ME MM SSS NT! 
MMMM MM SSS NT! 
MMMMMM  MMMMMM SSS NT! 
MMM MMM) «6OMMM «SSS NT! 
MMM MMM MMM SSS NT! 
MMM MMM MMM «SSS NT! 
MMM MMM SSSSSSSSS NT! 
MMM MMM SSSSSSSSS NT! 
MMM MMM SSSSSSSSS NT! 
MMM MMM SSS NT! 
MMM MMM $$$ NT! 
HMM MMM SSS NT! 
MMM MMM SSS NT! 
MMB MMM $$$ NT! 
MMM MMM $ss NT! 
MMM MMM SSSSSSSSSSSS NT! 
MMM MMM SSSSSSSSSSSS | NTS 
MMM MMM SSSSSSSSSSSS NTS 
NT! 

NT! 

NT! 

NT! 

| NT! 

| NT! 

| NT! 

NT! 
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RRRRRRRR MM MM 333338 BBBBBBBB KK KK TTTTTTTTITT SSSSSSSS PPPPPPPP LL | 

RRRRRRRR MM MM 333 BBBBBBBB KK KK TTTTTTITTTT SSSSSSSS PPPPPPPP LL 

RR RR MMMM MMMM 3 3 BB BB KK KK TT SS PP PP LL 

RR RR MMMM MMMM 3 BB BB KK KK TT SS PP PP LL 

RR RR MM MM MM $3 BB BB KK KK TT SS PP PP LL 

RR RR MM MM MM 3 6B BB KK KK TT SS PP PP LL 

RRRRRRRR MM MM $3 BBBBBBBB KKKKKK TT SSSSSS PPPPPPPP LL 

RRRRRRRR MM MM 3 BBBBBBBB KKKKKK TT SSSSSS PPPPPPPP LL 

RR RR MM MM 3 BB B KK KK TT $$ PP LL 

RR RR MM MM 3 BB BB KK KK TT SS PP LL 

RR RR MM MM 33 3 BB BB KK KK TT SS PP LL cece 

RR RR MM MM 33 3 BB BB KK KK TT SS PP LL cece 

RR RR MM MM HEH BBBBBBBB KK KK TT SSSSSSSS PP LLLLLLLLLL cece 

RR RR MM MM 33335 BBBBBBBB KK KK TT SSSSSSSS PP LLLLLLLLLL eoee 

LL III] SSSSSSSS 

LL II111 SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] SS 

LL I] $$ 

LL I] SS 

LLLLLLLLLL III] SSSSSSSS 

LLLLLLLLLL W111! SSSSSSSS 
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MODULE rina ated state te Fs ehbgeoe ‘ 


BEGIN 


APES ESISIIOOLOC ECTS EEE EE ETE CEST CTP C TPCT CCCP CCCP CCCP Pee 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND gt a 
RDANCE THE TERMS OF C TH THE 


* 

he 

® 

7 

® 

cd 

® 

i N N HE 
it INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
is OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ®* 
is TRANSFERRED. * 
® 

i THE INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOTICE 
® 

® 

* 

* 

at 

*® 

® 

* 


IT 
t* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
!® CORPORATION. 


iw DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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e+ 
i] 
FACILITY. RMS32 INDEX SEQUENTIAL FILE ORGANIZATION 
i ABSTRACT: 
Routine to move out data in case of a split 
i 
| ENVIRONMENT : 
9040 VAX/VMS OPERATING SYSTEM 
004 ie 
004 
BRee : | 
Re? ; AUTHOR: Wendy Koenig 17-Jul-1978 
004? i MODIFIED BY: 
0049 1! v03-006 mCNOOT4 Maria del C. Nasr 22-Mar-1983 | 
sit More Linkages reorganization. | 
0032 i v03-005 MCNO013 Maria del C. Nasr 23-Feb-1983 | 
bose Reorganize Linkages. 
055 1! v03-004 KBT0155 Keith B. Thompson 31-Aug-1982 | 
026 Reorganize psects 
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14-Sep-1984 13:01:14 RMS .SRCJRMSBKTSPL .B32 
v03-003 TMKOO001 Todd M. Katz 02-Jul-1982 


Implement the RMS cluster solution for next record positioning. 
There is no longer any need begin the process of updating the 
NRP List as part of a bucket split because there is no longer 
any NRP List to update. Next record positioning context is now 
kept locally in the IRAB. 


In addition, the RFA of the new record is always stored in 
IRBSL_PUTUP_VBN, and IRB$W_PUTUPD_ID. This is because the 
gucrens record context never changes because of a $PUT or 


KBT0064 Keith B. Thompson 17-Jun-1982 
Remove ref. to rm$sig_chars 


LJA0007 Laurie Anderson 25-Mar-1982 
Change KBUFSZ to reference a macro when computing buffer 
size and make IFBSB_KBUFSZ a word, now: IFBSW_KBUFSZ. 


KPLO001 Peter Lieberwirth 19-Aug-1981 
Preserve NEW_BKT NXTRECID field as it was set up by 
RMSALLOC_BKT instead of resetting it to 1. This 
porate Space reclamation to wor by not reusing old 
Ds in any new incarnations of the bucket. 


MCNO012 Maria del C. Nasr 07-Jul-1981 
Recompress key of record which follows record inserted. 

ma ee — some problems with 4-bucket splits and significant 
characters. 


MCNOO11 Maria del_C. Nasr 26-May-1981 
Add support for prologue 3 files. 


MCNO006 Maria del C. Nasr 16-Mar-1981 
Increase size of record identifier to a word in NRP. 


REFORMAT Frederick E. Deen, Jr. 23-Jul-1980 
This code was reformatted to adhere to RMS standards 


REVISION HISTORY: 


oO 
<o 


MEwWwN—o 


Christian Saether 


9. 21-Sep-1978 
t zero NRP List for each new bucket 


9. 25-Sep-1978 
t update RP on split -- it's an RRV 


-Oct-1978 


4 
X0004 = Modifications for UPDATE 


Koenig, 12-Oct-1978 
- Take all the NRP stuff out of here 


Koenig, 19-Oct-1978 : 
- Make some changes for the NEW_VBN entry in the NRP List 
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1$- 35-19 4 2 91: 7: $9 
14-Sep-1984 1: 


24-0ct-1978 


wendy Koenig, 
- Make changes caused by sharing conventions 


Che agtien Saether, 19-Dec-1978 
- Bliss does not Like using AP as block structure 


Wendy Koenig 25-Jan-1979 
x0009 = Get or id of setting valid 


igeene 

LIBRARY ‘RMSLIB:RMS'; 

REQUIRE ‘RMSSRC:RMSIDXDEF'; 
define default psects for code 


PSECT 
CODE = RMSRMS3(PSE CT_ATIR}, 
PLIT = RMSRMS3(PSECT_ATTR); 

Linkages 

LINKAGE 
L_J$B01 
L-RABREG_4567, 


L-RABREG 67, 
L-REC_OVAD; 


External Routines 
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EXTERNAL ROUTINE 
RMSBLDUDR 
RMSEXPAND _KEY 
RMSGETNEXT_REC 
RMSREC_OVH 
RMSRECOMPR_KEY 


: RLSRABREG_ 4567, 


: RLS$J 
: RLSRABREG 67, 
: En ie 
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ZSBITL  ‘RMSBKT_SPL' 
GLOBAL ROUTINE RMSBKT_SPL(RECSZ) : RLS$RABREG_67 NOVALUE = 
1+¢ 
FUNCTIONAL DESCRIPTION: 
Move data records out a bucket that's splitting. 


CALLING SEQUENCE: 
BSBW RMSBKT_SPL() 


INPUT PARAMETERS: 
RECSZ = record size of record to be inserted 
IMPLICIT INPUTS: 
IRAB SPLIT, SPLIT_1, SPLIT_2, POS_INS, 
NEW_BKTS, BKT_NO, REC W_LO, 
CURBDB == ORIGINAL BUCKET, NXTBDB -- NEW BUCKET 
IN NEW BUCKET, NXTRECID 
IFAB -- prologue version number 
RAB for RSZ, RBF 


! 

' 

' 

i QUTPUT PARAMETERS: 
NONE 

' 

ie 


2 
090909 09 09 09 SII NSIS NENINNISIOA AA AAAAAOOUIUIN 
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i IMPLICIT OUTPUTS: 
BKT s decremented 
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NO i 
FREESPACE and NXTID in new bkt is set 


kk dd od 
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86 

87 5 

88 5 ROUTINE VALUE: 

89 5 nothing 

90 5 

91 5 SIDE EFFECTS: 

92 5 Data records are moved from one bucket to another. 

93 5 The records are assigned new ids, in numerical order. 

94 5 The RFA address of current record becomes the RFA address of the new 
95 25 record if the new record was inserted into the new bucket. 
96 25 Mark new bucket dirty and valid. : ; 

97 26 If the primary key is compressed, the key in the first record of the 
98 26 new bucket undergoes expansion. 

199 $ AP is clobbered. 
200 6 
201 26 - 
$06 26 

0 6 BEGIN 

04 6 

05 6 EXTERNAL REGISTER 

06 26 R_REC_ADDR_STR, 

07 27 R-IDX~DFN_STR, 

08 e7 R-IFAB_STR, 

09 7 IRAB_STR, 

10 7 R-RAB_STR; 
4 7 

12 7 


GLOBAL REGISTER 
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RMSBKT_SPL 13:01: RMS. SRCIRMSBKTSPL B32; 


| 


R_IMPURE; 


—“ 
“Oo 


ORD, 


BUILTIN 
TESTBITCC; 


Set up NEW_BKT and OLD_BKT addresses. 


NEW_BKT = -BBLOCKE. IRAB IRBSL_NXTBDB], BDBSL_ADDR]; 
OLD-BKT = .BBLOCKC. IRABCIRBSL_CURBDBJ, BDBSL—ADDRI; 


| 
| 
| 
! Set up SPLIT_PT and EOB for this move. Also set up AP to signal if the new 
! record belongs by itself. If this is the only new bucket, the new record 
! may be positioned at the end of the new bucket w/o REC_W_LO being set. 
Therefore we can set it. | 
FLAG = 1; ! one indicates VBN_RIGHT ( ‘* the default") | 
| 
| 
| 
| 
| 
| 


CASE - JRABCIRBSV_BKT_NOJ FROM 1 TO 3 OF 


(3) : 


WIT ES BBE EB EEE WMI NII NINN NINN 2 2 SS Os OS 


DONA VES WN OO ODNOA MVE WN $0 OBNAMU EWN 0 ODNAUE WN OOONAUE WW 


BEGIN 
SPLIT _PT = .JRABCIRBSW_SPLIT_2); 


DOONAU EWN OS ODNAUNE WIN 9 ODNAUESWN SOOO NAOUS WN OO@ 


5 REC_ADDR = .OLD_BKT + BKTSC_OVERHDSZ; 

2 EOB™= .OLD_BKT * .OLD_BKTCBRIS$W_FREESPACE); 
5 DO 

3 BEGIN 

3 IF .REC_ADDRCIRCS$V_RRV) 


3 


EXITLOOP; 
RMSGETNEXT_REC() 
UNTIL .REC_ADDR GEQU .EOB; 
EOB = .REC_ADDR ~ .OLD_BKT; 


SESSA SS 
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BEGIN | 
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| 

70 SPLIT_PT = ,IRABCIRBSW_SPLIT_1]; 

4 EOB = ~“IRABCIRBSW. SPLIT 2 ; 

is BEGIN 
$16 IF .SPLIT_PT EQLU .IRABLIRB$W_POS_INSJ 
$18 «SPLIT PT EQLU .IRABLIRB$W_SPLITJ 

79 FLAGCALONE) = 1; 
281 ; 

Be IF_.IRABCIRBSL_VBN_MID] NEQ 0 
28 THEN 
284 FLAGCNEW_VBNJ = 3; 
285 D; 
286 
287 C1]: 
288 
289 BEGIN 
290 SPLIT_PT = ,IRABCIRBSW_SPLITI; 
291 EOB =". IRABLIRB$W_SPLIT_1); 
$3 IF .IRABCIRBSL_VBN_MID] NEQ 0 

94 THEN 


$ 0 
6 
3 0 
; 0 
§ 
; 0 
3 0 
; 0 
; 0 
3 0 
3 0 
3 0 
: 0 
; 0 
; 0 
: 0 
. 
; 0 
3 0 
; 298 0 
3 0 
; 0 
; 0 
3 0 
$ 0 
; 0 
5 0 
: 0 
3 0 
3 0 
3 0 
; 0 
: 0 
; 0 
0 
; 0 
; 0 
6 
; 6 
: 6 


| 
FLAGCNEW_VBN) = 2; | 

IF (. 1 alae 16> EQLU .IRABCIRB$W_POS_INSJ) | 
uarette PT NEQU .EOB<0, 16>) | 

( NOT .IRABCIRB$V_BIG_SPLITJ) 

| 

| 

| 

| 
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301 
308 HE 
$0 IRABCIRB$V_REC_W_LOJ = 
04 D; 
305 
309 ? vert 
308 7 : If the new record belongs in the middle of the new bysket > have to do 
309 7 ! the move in three pieces; 1) Move out the "hi set'' build record in 
10 7 ' the new bucket, and 3) move out “‘lo set’. Note that 38 uit set and / or 
3 f lo set may be non-existent. 
18 NEXT REC = 0; ! assume record does not go in this bucket 
f IF “SPLIT PT LEQU .IRABCIRBS$W_POS_INSJ 
17 8 | TRABLIRESY. POS_INSJ LEQU .EOB<0, 16> 
Hs "ocin 
20 8 REC_ADDR = SHOROVES IRABCIRB$W_POS_INS] = .SPLIT_P 
3) 8 cree + .OLD_BKT, .NEWTBKT™+ BKTSC “OVERHBSZS 
3 LABEL 
25 8 BUILD; 
26 8 
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' If the record was written to this bucket, and there will be a hi set 
' to move, then set the flag to the address of the record after the one 
} inserted. Otherwise, clear indicator. 


3 7 0390 4 GLOBAL REGISTER 

; 3 4 : COMMON_IOREG; 

; 0 38 4 BKT_ADDR = ,NEW BKT; 

; 331 94 4 BDB"= .JRABLIRBSL_NXTBDB); 

; ¢ 0 2 é BUILD : 

: 4 6 39 4 ' If so desired, now is the time to build the user data record in the 
3 5 98 4 ' new bkt. The ID for this record will be zeroed, and filled when 
H 6 0399 4 ' the record ID's for the other records are reassigned. 
s Sar 0400 4 ! 

3 $3 Bibs BEGIN 

; 340 0408 IF .SPLIT_PT EQLU .IJRABLIRB$W_POS_INSJ 

3 41 0404 5 THEN 

3 og 0405 6 BEGIN 

3 56 0406 6 

; 344 0407 6 IF NOT .IRASCIRB$V_REC_W_LOJ 

: 345 0408 6 

: 346 0409 6 NOT .FLAGCALONE] 

3 347 0410 6 

; 348 0411 7 

; 349 p28 7 NEXT_REC = 1; 

; 350 0413 7 RMSBLDUDR(.RECSZ); 

s 633) 0414 6 END; 

3 326 0415 6 

3; 35 0416 6 LEAVE BUILD 

; «4354 0417 6 

; 3 0418 5 END; 

3 $29 0419 5 

3 57 0420 5 IF .EOB<0, 16> EQLU .IRABLCIRBSW_POS_INSJ 

; 358 0421 5 THEN 

$ $20 bess 6 BEGIN 

: 360 0425 6 

; 0424 6 IF .IRABCIRB$V_REC_W_LOJ 

3 0425 6 THEN 

3 Beso 7 

; 04 7 NEXT_REC = 1; 

; 0428 7 RMSBCDUDR(.RECSZ); 

5 oh 4 6 END; 

5 0430 6 

; 0431 6 LEAVE BUILD; 

3 Beg 6 

3 0434 : END; 

3 435 5 ! At this point the only case is that POS_INS is in the middle of the 
; ety: 3 bucket so we always want to insert the new record. 
; rat 5 NEXT_REC = 1; 

; 0439 5 RMSBCDUDR(.RECSZ); 

; 0440 4 END; ' {end of build } 
: 441 END; 

; rr 

: 44 

3 4 

: 8 45 

3 6 
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P 84 0447 ; 
; 385 Bees IF .NEXT_REC ; 
; eh AND (.E0B<0,16> - .IRABCIRB$W_POS_INSJ) NEQU 0 : 
; 388 451 NEXT_REC = .REC_ADDR : 
; 389 128 ; 
; 390 45 NEXT_REC = 0; 3 
; 391 Be ee REC_ADDR = tentang $1 16> - , IRABCIRB$W_POS_INSJ, 3 
; 39 455 -IRABC{RB$W_POS_INSJ + .OCD_BRT, | ; 
; 0456 «REC_ADDR); 3 
; 394 0457 END $ 
: 399 bees ELSE ; 
; 396 459 ; : 
s 597 0460 ' The new record does not go into new bucket so just move data out in : 
3 $99 0461 ! one chunk. : 
; wy Br eg : : 
; 400 046 REC_ADDR = CHS$MOVE(.EOB<0, 16> - .SPLIT_PT, ; 
: 401 0464 -SPLIT_PT + .OLD_BK 5 
: 40 0465 "NEW_BRT + BKTSC“OVERHDSZ); | : 
; 404 0467 ' Re-allocate the ID's, in numerical order, for the new bucket. While RMS : 
; 405 0468 2 ! is doing this it assigns the ID to the new record, if the new record | : 
; 406 0469 ! goes in the new bucket. | 3 
; 407 0470 ! : 
: 408 0471 BEGIN 3 
: 409 berg ; 3 
: 410 047 EOB = .REC_ADDR; ; 
: 411 0474 ; : 
3 412 0475 ! If the record was inserted into this bucket, BLDUDR incremented NXTRECID. : 
; 413 0476 3 ' Renumber the IDs in the new bucket. Do it differently, depending on ; 
; 414 0477 3 ' prologue version number. 3 
3 6415 0478 3 ! 3 
: 416 0479 3 REC_ADDR = .NEW_BKT + BKT$C_OVERHDSZ; ; 
: 4617 0480 3 
3 418 0481 3 IF .IFABCIFB$B_PLG_VER] LSSU PLG$C_VER_3 ; 
3: 419 Bees 3 T : 
; 420 048 ; WHILE .REC_ADDR LSSU .EOB : 3 
; 421 0484 dO é 
: 422 0485 4 BEGIN 3 
; 423 0486 4 : 
: 424 0487 4 ! If the ID of the record RMS is currently positioned to is 0, : 
3; 425 0488 4 ' then it is the new record. In this case, the ID of the RRV also 3 
; 426 0489 4 i has to be set as well as the ID field of the RFA address of the 3 
: rH Bees ? next record positioning context's current record. : 
: $¢? 0492 4 IF .REC_ADDRCIRC$B_1D] EQLU 0 s 
; 430 0495 4 THEN : 
; 431 0494 2 | ; 
3 eee 0495 (.REC_ADDR + IRC$C_DATOVHDSZ)<0, 8> = .NEW Pe TOR TSO WA TAGE IOI: 3 
> 43 496 5 IRABLTRB$W_PUTUP_IB] = .NEW_BKTCBKTSB_NXTRECIDJ; | : 
: 434 497 4 END; 3 
: 435 498 4 3 
; 436 499 4& REC_ADDRCIRC$B_I1D) = .NE =DETEBETSS NXTRECIDI; ; 
; 437 300 4 NEW BKTCBKT$B_AXTRECID) =".NEW_BKTCBKTSB_NXTRECID) + 1; | ; 
: 438 501 4 RMSGETNEXT_REC() : 
3; 439 206 4 D ! end of while loop s 
; 440 503 3 ELSE ; 
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TOA 000 RMSBKT_SPL eae 1 eer LRMS.SRC RM BiySPt sort ° (2) | 
> 441 ape ; WHILE .REC_ADDR LSSU .EOB 
; 44 5 DO | 
: 44 5 $ 4 BEGIN 
> 6446 2 4 | 
> 6445 08 4 ‘if the ID of the record RMS is currently positioned to is 0, 
; 446 509 4 ' then it is the new record. In this case, the ID of the RRV also 
: 447 510 4 i has to be set as well as the ID field of the RFA address of the 
3 res Balt ? next record positioning context's current record. 
; 450 0818 iF .REC_ADDRCIRC$W_ID] EQLU 0 | 
s 651 0514 4 THEN 
; 438 9319 5 SIN 
; 45 516 5 taabe ADDR + IRC$C_DATOVHSZ23)<0,16> = .NEW Pi Leet OM MAINES EDT: 
; 454 0517 5 IRABLTRB$W_PUTUP_IB] = .NEW_BKTCBKTSW_NXTRECID g 
3 655 0518 4 END; 
; 456 0519 4 
: 457 bess 4 REC_ADDRCIRC$W_ID) = .NEW_BKTCBKTSW_NXTRECID); 
; 458 0521 4 NEW-BKTCBKTS$W_AXTRECID] = .NEW_BKTCBKT$W_NXTRECIDI + 1; 
3 459 Oos¢ 4 RMSGETNEXT_REC() 
; 460 052 ; ND; ! end of while loop 
: 461 B2se 
3 186 Bas? 2 END; ! { end of block redefining eob } 
3; 464 0337 ; BBLOCKC.IRABCIRB$L_NXTBDBJ, BOBSV_DRT] = 1; 
3 ret 8 8 NEW_BKTCBKT$W_FREESPACE) = .REC_ABDR - .NEW_BKT; 
; 467 $385 § ! If the record was inserted in this bucket followed by another record 
; 468 0531 2 ! which is not an RRV, and the key is compressed, then recompress the key 
; 469 B2eg 2 ' of the record which follows the inserted record. 
; 470 05 2 ! 
: 671 0534 § 
: 47 0535 IF .NEXT_REC NEQU 0 
:. oF 0536 2 AND .IBX_DFNCIDX$V_KEY_COMPR) 
: 474 0537 2 THEN 
3; 475 0538 2 
: 476 0539 IF NOT .NEXT_RECCIRCSV_RRVI | 
s 4677 0540 THEN 
; 478 0541 BEGIN 
; 479 R206 ; 
; 480 054 GLOBAL REGISTER 
3; 481 0544 R_BKT_ R; 
; 482 0545 
; 483 0546 LOCAL 
; 484 0947 TMP_REC_ADDR; 
; 485 548 
: 486 0549 BKT_ADDR = .NEW_BKT; 
; 487 8330 TMP_REC_ADDR = .REC_ADDR; 
: 488 551 REC"ADDR = .NEXT_REC; 
> 689 095¢ RMSRECOMPR_KEY (~. IRABCIRBSL_RECBUF J | 
> 490 55 “REC_ADDR +~RM$REC_OVHD(O) ); | 
: 491 554 REC_ADDR = .TMP_REC_ADDR; 
; 49 555 END; 
; 49 556 
3 494 557 BEGIN 
; 495 bee6 
: 496 559 LOCAL 
3 497 0560 SIG_FLG, 
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} 

| 

| 

KEY_ADDR1, | 
KEY"ADDR2; | 
| 

| 


' Determine which key buffer contains the Last key of the previous pester. 
it we are allocating bucket 2 or 3 of a big set t, then keybuffer3 (and 
i 


ybuffer5) contains the key. Otherwise, is in keybufferd. 


IF .IRABCIRB$V_BKT_NOJ GTRU 1 
THEN 


= 2; 
R1 = KEY_ADDR2 = KEYBUF_ADDR(2); 


! If the primary key is compressed, we must expand the first wey of the — 
! new bucket, since it cannot be front end compressed. Base this expansion 
! on what will be the Last key of the previous bucket, obtained from the 
right key buffer. 
iF .1DX_DFNCIDX$V_KEY_COMPR] | 
THEN 
BEGIN | 
GLOBAL REGISTER | 
R_BKT_ADDR; | 
| 
| 


RMSEXPAND_KEY ( .KEY_ADDR1, .NEW_BKT ); 


END; ! end of local definition for KEY_ADDR 
! Since I know that BKT_NO is a 2-bit qigit ranging from 1 to 3, 1 can 
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6 ' optimize the decr desired, so bear with me. Note: BKT_NO_LO refers to 
seh the low bit of BKT_NO. 

et if TESTBITCC(IRABCIRB$V_BKT_NO_LOJ) 

$608 IRABCIRB$V_BKT_NO) = 1; 

0606 

0607 RETURN; 

0608 

0609 END; ! { end of rm$bkt_spl } 


TITLE RM3BKTSPL 

IDENT \Vv04-000\ 

.EXTRN RMSBLDUDR, RMSEXPAND_KEY 
EXTRN RMSGETNEXT_REC, RMSREC_OVHD 
EXTRN RMSRECOMPR7KEY 
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RM3BKTSPL 18-5 -1984 7:40 AX-11 Bliss-32 v4.0 Pp 11. RM 
V04-000 RMSBKT_SPL e8ee- 198s Sidi 12 HAMS SaeiRndarssbr co3o- OOF (2) vo 


-PSECT RMSRMS3,NOWRT, GBL, PIC,2 


083¢ 8F 8B 00000 RMSBKT_SPL:: : 
PUSHR #*M<R2,R3,R4,R5,R11> ; 0220 PF 
5E 18 ¢ 90004 SUBL2 #34 sp : ; 
50 3¢ AJ DO 00007 MOVL (fRAB), RO + 0298 ; 
0c Ar 18 AO D 9008 MOVL 4(RO), NEW BKT : : 
5 20 Ad DO 0001 MOVL 2(1RAB), RO ; 0299 ; 
08 AE 18 AO 00 00014 MOVL 4(RO), OLD_BKT : ; 
04 AE 1 00 00019 MOVL #1, LAG + 0306 ; 
52 44 Ad EF 90010 EXT2V m0, he, 68 CRAB), R2 + 0308 ; 
02 1 CF 00 é CASEL Re. #1. # : ; 
0006 0032 005 00027 1$: WORD [$-18, - : 
$-1$° : 
6E 4E Ad BO 9020 2$: MOVW 78 IRB) SPLIT_PT > 0314 
56 08 AE OE C1 00031 ADDL #14, OLD’BKT, REC _ADDR 3; 0315 
51 08 AE 04 C1 0036 ADDL3 #4, OLD _BKT, R1 + 0316 
50 61 3C 00038 MOVZWL (R41), R : 
10. AE 08 BE4O 9E 0003E OV agLD BKTCROI, £08 ; 
09 66 03 £0 00044 3$: BBS TREC_ADDR), 4$ + 0321 
00006 30 00048 BSBW RISGE TH ERT + 0325 
10 AE 56 D1 00048 CMPL _— REC SADR, “nec + 0327 
F3 1F OO04F BLSSU. 3S ~ ; 
10 AE 56 08 AE C3 00051 4$: SUBL3 OLD_BKT, REC_ADDR, EB + 0329 
50 11 00057 BRB 9$ ~ : 0308 
6E 4C Ad 80 00059 5$: MOVW  76(IRAB), SPLIT_PT + 0333 
10 AE 4E Ad 3C 0005D MOVZWL 78(IRAB). EOB > 0334 
48 Ad 6E Bi 00062 CMPW  -SPLIT_PT. 72(IRAB) : 0338 
OA 12 00066 BNEQ 6$ : 
4A Ad 6E B1 00068 CMPW = SPLIT_PT, 74(IRAB) + 0340 
04 12 0006C BNEQ 6$ : 
04 AE 04 88 0006E BISB2 #4, FLAG + 0342 
0090 9 D3 00072 6$: TSTL 144 (1 RAB) : 0345 
31 13 00076 BEQL «69S ; 
04 AE 03 88 00078 BISB2 #3, FLAG + 0347 
2B 11 0007C BRB $ : 0308 
6E 4A AQ 80 0007E 7$: MOVW 74(IRAB), SPLIT_PT > 0353 
10 AE 4c AD 3C 00086 MOVZWL 76(IRAB). EOB > 0354 
0090 ¢9 dS 9008 TL 144(1RABS : 0356 
06 13 00088 BEQL Bs : 
04 AE 02 00 02 FO 0008D INSV WO, #2, FLAG : 0358 
48 Ad 10 AE Bl 00093 8$: CMPW 479 72(1RAB) + 0360 
OF 12 0009 BNEQ ; 
10 AE 6— 81 O009A CMPW SPLIT _PT, E0B > 0362 
09 713 0009 BEQL ; 
04 44 Ad 08 £0 OOA BBS iB. 68(IRAB), 9$ > 0364 
44 Ad 8 OOOA BISB2 #8. 68(IRAB) : 0366 
14 AE ps OOA9 9$: CLRL  NEXT_REC : 0 76 
50 6€ 3C OOOAC MOVZ2WL SPLIT_PT, R : 0384 
48 Ad of B1 OOOAF CMPW - SPLIT=PT, RS cIRAB) : 
1A 008; BGTRU 15$ : 
10 AE 48 Ad Bi 6 B CMPW (2 C1RAB) , EOB > 0380 
72 1A OOOBA BGTRU 15$ : 
51 48 =A 3 0B MOVZ2WL 72(IRAB), R1 > 0383 
2 6— %3¢ 000C MOVZ2WL SPLIT PT. R2 ; 
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RM3BKTSPL 16-Sep-1984 01:37:40 AX-11 Bliss-32 V4.0-74 Page 12. 
VOee000 RMSBKT_SPL 13788-1382 OF ar E49 AMS SREIRA Biysbt3or4 . (2) | 
51 52 ce Oc SUBL R? R1 ; | 
7E oC A g Cé ADDL3 #14, NEW_BKT, -(SP) + 0384 | 
9E C BES 8 OCB MOVC RI. @OLD~BKTEROJ, a(SP) + : 
: D D1 MOVL 3, REC_ADDR : | 
g¢ AE D6 0D4 MOVL NEW BKT ADDR + 0393. 
i €¢ AD OD 0008 MOVL  60(TRABS, BD + 0394 
48 Ad E B 0 D CMPW = SPLIT_PT. 72(IRAB) + 0403 
OE BNEQ 198 : 
20 44 Ad EO OOOE BBS #3, 68(IRAB), 12$ + 0407 
1B 04 AE 0 F OOE BBS #2. FLAG, 12$ + 0409 
C 11 OOOEC BRB 11§ + 041 
48 Ad 10 AE 8 OE 10$:  CMPW - EOB, 72(IRAB) + 042 
05 12 O00F BNEQ ‘118 : 
0D 44 Ad 03 €1 OOOF BBC #3, 68(IRAB), 12$ + 0424 
14 AE 01 DO OOOFA 11$:  MOVL #1. NEXT_REC + 0438 
30 AE bp OOOFE PUSHL RECSZ + 0439 
00006 30 00101 SBW. RMSBLDUDR ; 
5€ 04 CO 00194 ADDL2 , SP ; 
0D 14 AE £9 00107 12$:  BLBC NEXT_REC, 13$ + 0448 
48 Ad 10 AE 61 0010B CMPW =—s- EOB, ~72 (RAB) + 0449 
6 13 00110 BEQL ; 
16 AE 6 pd 00112 MOVL § REC_ADDR, NEXT_REC > 0451 
03 11 00116 BRB 14$ : 
16 AE 04 00118 13$:  CLRL  NEXT_REC : 0455 
50 48 AS 3C 0011B 14$:  MOVZWL 72(IRAB), RO > 0454 
51 10 AE 3C OO11F MOVZWL OB, R1 ; 
51 50 ce 00133 SUBL2 RO, R1 : 
66 08 BE4O 31 <8 001 é move Rl @OLD_BKTCROJ, (REC_ADDR) + 0456 
51 10. AE 3¢ 0012E 15$:  MOVZWL €EOB, R1 > 0463 
52 oe € 001 MOVZWL SPLIT PT, R2 : 
51 52 C2 001 SUBL2  R2, RT ; 
7E OC AE 0€ C1 00138 ADDL3 #14, NEW_BKT, -(SP) + 0465 
9E OC BESO 51 28 001 p MOVC3 R1, @OLD-BKTCROJ, a(SP)+ F 
56 53 00 00143 16$:  MOVL  R3. REC_ADDR : 
10 AE 56 D0 00146 MOVL_  REC_ADDR, E08 + 0473 
50 OC AE OF C1 DO14A ADDL3 #147 NEW BKT, RO : 0479 
56 6 H: 0014F MOVAB (ROS, REC_ADOR : 
50 oc A 06 C 0013¢ ADDL3 #6, NEW BRT, RO > 0499 
5 60 9€ 0015 MOVAB (RO) 2 ; 
0 00B7 CA 91 0015A CMPBs«aAB83(EFAB), #3 + 0481 
¢9 1E 00151 BGEQU 19$ ; 
10. AE 6 D1 00161 178:  CMPL = REC_ADDR, E0B + 0483 
4C YE 0163 BGEGU els ; 
01 Ag 95 00167 TSTB (REC_ADDR) + 0492 
13 12 0O16A BNEQ 18$ ; 
50 OC AE 06 ci 016¢ ADDL3 #6, NEW_BKT, RO + 0495 
02 A6 60 90 1 1 move. (RO), 2TREC_ADDR) ; 
50 OC AE 06 ci 175 ADDL3 #6, NEW + 0496 
0080 9 6 : O17A MOVZBW (RO), 128(IRAB) ; 
01 «Ab 62 9 Ou 18$: OvB (Re). 1(REC_ADDR) > 0499 
f 3% 183 INCB  —- (R2) : 0500 
00006 30 00185 BSBW = RMSGETNEXT_REC > 0501 
My 11 4 BRB 17$ ; 
10 AE $ D1 0018A 19$: CMPL —s- REC_ADDR, £08 > 0504 
2 it 01 f BGEQU 21$ ; 
01 Ae B5 0019 TST 1(REC_ADDR) > 0513 
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RMSBKT_SPL 14-Sep-1 RMS. SRCIRM3BKTSPL.B32; 
13 1 19 BNEQ 20$ 
50 ¢ A 06 if 138 ADDL3 #6, NEW_BKT, RO 
A 6 B0 O19A movw. (RO), TRE * ADDR) 
50 C oA C1 001 ADDL3 "6 Nel KT RO 
0080 ¢ 6 80 uA MOVW Me CTRAB) 
01 Ab 62 BO 001AB 20$:  MOVW (R > 1(REC_ADDR) 
6 86 O1AC INCW = (R ,° 
00006 1AE BSBW § RMSGETNEXT_REC 
07 11 00181 BRB 1 
50 3c b6 1B3 21$: MOVE £2. Nth RO 
OA AO 02 88 001B BISB 
50 OC AE 4 cl} O18 ADDL3 #4. NEW 
60 56 0c AE A3 O01C SUBW3 NEW_BKT; Bree ADDR, (RO) 
14 AF D3 001¢ TSTL. = NEXT_REC 
2 13 001¢8 BEQL 
23 1c (A? ‘ E1 OO1CA BBC i: 3 28 (10x DEN), 22$ 
1E 14 ‘BE 03 £0 orc BBS TAREC, nee 
55 OC AE DO 00104 MOVL NEW xT KT 
52 56 DO 00108 MOVL REC Bi, ‘MP. AREC ADDR 
56 14 AE DO 001DB MOVL § NEXT_REC, RECWADDR 
51 ps4 O1DF CLRL OR 
00006 30 001€1 BSBW RMSRE OVHD 
51 56 50 C1 00164 ADDL3 REC_ADDR, R1 
50 68 Ad b0 001E8 MOVL *be RAB) RO 
00006 30 OO1EC BSBW RMSRECOMPR KEY 
56 52 DO OO1EF MOVL P_REC_ADDR, REC_ADDR 
52 00B4 CA 9E O1Fe 22$:  MOVAB 1B0TIE AB), RO 
01 44 Ad 02 00 €ED OO1F CMPZV #0 to, BOCTRABD . #1 
11 1B OO1FD BLEQU 23$ 
50 b4 OO1FF CLRL 1G_FLG 
51 62 3¢ 00201 MOVZ2WL (R23, R 
50 60 8941 De 00204 MOVAL @96(fRAB)CR1]. KEY_ADDR1 
51 60 B941 3E 00209 MOVAW  @96(IRAB)CR1]. KEY-ADDR2 
0D 11 0020E BRB 
50 02 pO 00210 23$: § MOVL G 
51 62 3C 00213 MOVZWL (RO) ADDR 
51 60 Ad CO 00216 DL2 RAB) , “KEY AbDR2 
50 51 DO OO21A MOVL KEY -ADDRE KEY_ADDR1 
07 1c «A? 06 £1 0021D 24$: BBC M6. “2810 x DF FNY, 25$ 
51 OC AE b6 0222 MOVL 
00006 0226 BSBW RASERPA 
06 44 Ad 00 £4 00229 258:  BBSC  ~4#0, XPAND KEY 26$ 
44 Ad 02 00 01 FO 0022 INSV. #1, #0 0. #2, 68(1RAB) 
5E 18 CO 00 4 26%: ADDL2 #24, SP 
083c BF BA 00237 POPR #*M<R2,R3,R4,R5,R11> 
05 00238 RSB 


; Routine Size: 572 bytes, Routine Base: RM$RMS3 + 0000 
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PSECT SUMMARY 
Name Bytes Attributes 
RMSRMS3 572 NOVEC,NOWRT, RD, EXE,NOSHR, GBL, REL, CON, PIC,ALIGN(2) 


: ecocccce Symbols -------- Pages Processing 

; File Total Loaded Percent Mapped ime 

: _$255$DUA28:CRMS.OBJIRMS.L32;1 3109 51 1 154 00:00.4 

3 COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=LIS$:RM3BKTSPL/OBJ=OBJ$:RM3BKTSPL MSRC$:RM3BKTSPL/UPDATE=(ENH$:RM3BKTSPL) 


; Size: 572 code + 0 data bytes 
3; Run Time: 00:13.5 

3 Elapsed Time: 00:37.6 
3 Lines/CPU Min: 2722 

3 Lexemes/CPU-Min: 16410 

: Spee | Used: 214 pages 
. a 


; Compi 
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